home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / FELONY.DSK / CRIME INTRO.bas < prev    next >
BASIC Source File  |  2014-09-09  |  5KB  |  92 lines
  1. 1  REM  MYSTERY MASTER
  2. 2  REM  FELONY!
  3. 3  REM   INTRO. VER 2.1
  4. 4  REM  (C) 1984 BBI
  5. 5  REM  A CBS SOFTWARE
  6. 6  ONERR  GOTO 10000
  7. 7  PRINT  CHR$(13) + CHR$(4) +"BLOAD SETUP"
  8. 8  ONERR  GOTO 10002
  9. 9 D$ =  CHR$(13) + CHR$(4):BL$ = "": FOR I = 1 TO 40:BL$ = BL$ +" ": NEXT : POKE 230,32
  10. 10  POKE  -16304,0: POKE  -16297,0: POKE  -16300,0: POKE  -16302,0: GOSUB 500: SCALE= 1: ROT= 0: RESTORE : POKE 50,255
  11. 11 VX = 137:VY = 95:X1 = 0:Y1 = 0:X2 = 0:Y2 = 0: POKE  -16300,0: POKE  -16302,0
  12. 12 AH = 2428:AM = 2453: GOSUB 700
  13. 13  FOR I = 1 TO 12:CX =  PEEK(AH):CY =  PEEK(AH +1):AH = AH +2: IF X2 >0  THEN  GOSUB 1120
  14. 14  GOSUB 1150:X2 = CX:Y2 = CY: POKE  -16368,0
  15. 15 AM = 2453: FOR J = 1 TO 12:MX =  PEEK(AM):MY =  PEEK(AM +1):AM = AM +2: IF X1 >0  THEN  GOSUB 1130
  16. 16  GOSUB 1140: GOSUB 1150
  17. 17 X1 = MX:Y1 = MY:A =  PEEK( -16336):A =  PEEK( -16336)
  18. 18  FOR L = 1 TO 50:RS =  PEEK( -16384): IF RS >128  THEN L = 51
  19. 19  NEXT L: IF RS >128  THEN 25
  20. 20  NEXT J: GOSUB 1120: GOSUB 1130: NEXT I
  21. 21  GOTO 12
  22. 25  GOSUB 1000: POKE  -16368,0:CA = J
  23. 27  GOSUB 1120: GOSUB 1130
  24. 30  VTAB 11: HTAB 13: PRINT "YOU HAVE CHOSEN": HTAB 17: PRINT "CASE #"CA","
  25. 32  HTAB 14: PRINT "IS THAT RIGHT?": PRINT : HTAB 15: PRINT "TYPE Y OR N"
  26. 33  GET G$: GOSUB 1000
  27. 34  IF G$ =  CHR$(89)  THEN 38
  28. 35  IF G$ < > CHR$(78)  THEN  GOSUB 1010: GOTO 33
  29. 37  GOSUB 1100: GOTO 20
  30. 38 J = 13: NEXT J:I = 13: NEXT I: POKE 2452,CA
  31. 40 CA =  PEEK(2452): CALL  -3086: ONERR  GOTO 10004
  32. 42  POKE 232,173: POKE 233,9:Y(1) = 100:Y(2) = 100:Y(3) = 100: GOSUB 2015
  33. 60  POKE 230,64: CALL  -3086: GOSUB 2010
  34. 65  POKE 230,32: GOTO 400
  35. 80  CALL ( -3086): SCALE= 2: DRAW 5 AT 102,42: HCOLOR= 3
  36. 82  SCALE= 1: DRAW 1 AT 10,10: DRAW 2 AT 10,112: DRAW 3 AT 231,10: DRAW 4 AT 231,112: HCOLOR= 6: HPLOT 0,0 TO 278,0 TO 278,159 TO 0,159 TO 0,0
  37. 130  PR# 0: HOME : PRINT " ": PRINT D$: CALL 1002
  38. 132 A = 9:B = 0:C = 9:D = 12:E = 0:F = 0:G = 0:H = 0:I = 0:J = 55:K = 0
  39. 140  ON CA GOTO 142,143,144,145,146,147,148,149,150,151,152,153
  40. 142 A = 12:B = 10:C = 4:G = 16:H = 45:D = 14:I = 23: GOTO 154
  41. 143 A = 14:B = 5:C = 8:F = 1:I = 50:D = 16:J = 28: GOTO 154
  42. 144 A = 9:B = 25:C = 26:I = 40:D = 11:K = 30: GOTO 154
  43. 145 A = 9:B = 15:C = 9:G = 14:I = 43:J = 35: GOTO 154
  44. 146 A = 9:B = 10:C = 9:I = 45:J = 0:D = 11:K = 10: GOTO 154
  45. 147 A = 10:B = 45:C = 14:I = 30: GOTO 154
  46. 148 A = 10:B = 30:C = 2:E = 1:I = 40:J = 40:K = 10: GOTO 154
  47. 149 A = 9:B = 10:C = 16:I = 55:J = 0:D = 10:K = 50: GOTO 154
  48. 150 A = 8:B = 45:C = 22:I = 37:D = 9:K = 50: GOTO 154
  49. 151 A = 6:B = 45:C = 3:I = 30:J = 20:D = 9:K = 0:G = 15:H = 10: GOTO 154
  50. 152 A = 17:B = 0:C = 17:F = 1:G = 18:D = 18:K = 45:H = 0:I = 40:J = 0: GOTO 154
  51. 153 A = 8:B = 30:C = 9:G = 11:H = 25:I = 50:J = 73:D = 11:K = 30
  52. 154  POKE 6137,A: POKE 6138,B: POKE 6139,C: POKE 6140,D: POKE 6143,E: POKE 8155,F: POKE 8151,G: POKE 8152,H: POKE 8153,I: POKE 8154,J: POKE 6141,K
  53. 160  PRINT  CHR$(13) + CHR$(4) +"RUN CASE HISTORY"
  54. 180  GOTO 160
  55. 200 PH = 180:DN = 140:P = 80: GOSUB 480:PH = 180:DN = 80:P = 40: GOSUB 480:PH = 152:DN = 180:P = 60: GOSUB 480:PH = 180:DN = 140:P = 40: GOSUB 480
  56. 210 PH = 152:DN = 90: GOSUB 480:PH = 136:DN = 140: GOSUB 480:DN = 80: GOSUB 480:PH = 152:DN = 180: GOSUB 480
  57. 240  RETURN 
  58. 400  VTAB 20: HTAB 6: PRINT "TAP ANY KEY TO ANSWER THE PHONE.": POKE  -16368,0: POKE  -16300,0:RP = 35:PH = 30
  59. 425  FOR RG = 1 TO 8:DN = 4 +2 *RG:DY = 15 -RG
  60. 430  FOR T = 1 TO RP: GOSUB 470: POKE  -16299,0: FOR T1 = 1 TO DY: NEXT T1: POKE  -16300,0
  61. 435  IF  PEEK( -16384) >128  THEN 455
  62. 440  NEXT T
  63. 445  FOR I = 1 TO 500: NEXT I: NEXT RG
  64. 450  GOTO 425
  65. 455  POKE 49168,0: VTAB 20: HTAB 6: PRINT " HELLO, HUXLEY POLICE STATION?   "
  66. 457 CA =  PEEK(2452): ONERR  GOTO 10006
  67. 460  PRINT  CHR$(13) + CHR$(4): PRINT  CHR$(4)"BLOAD SHP"CA: PRINT : GOTO 80
  68. 470  POKE 768,PH: POKE 769,DN: CALL 770: RETURN 
  69. 480  GOSUB 470: FOR T = 1 TO P: NEXT : RETURN 
  70. 500  POKE 54,0: POKE 55,28: VTAB 24: PRINT  CHR$(12);: POKE 972,24: CALL 1002: CALL ( -3086): RETURN 
  71. 700  POKE 33,40: IF X1 >0  THEN  GOSUB 1120: GOSUB 1130
  72. 713  PRINT D$"BLOAD CRIMESHP.PIC,A8192": GOSUB 200: GOSUB 1040: GOSUB 240: GOSUB 1050: GOSUB 1100
  73. 715  VTAB 10: HTAB 15: PRINT "TAP ANY KEY": HTAB 19: PRINT "WHEN": HTAB 13: PRINT "THE MINUTE HAND": HTAB 20: PRINT "IS": HTAB 17: PRINT "POINTING": HTAB 13: PRINT "AT THE CASE YOU"
  74. 720  HTAB 14: PRINT "WISH TO SOLVE.": GOSUB 1060: GOSUB 1100: RETURN 
  75. 1000 PH = 20:DN = 5: GOTO 470
  76. 1010 PH = 100:DN = 150: GOTO 470
  77. 1040  FOR O = 1 TO 1100: NEXT : RETURN 
  78. 1050  FOR O = 1 TO 2000: NEXT : RETURN 
  79. 1060  FOR O = 1 TO 8000: NEXT : RETURN 
  80. 1100  VTAB 10: FOR P = 1 TO 7: HTAB 13: PRINT  LEFT$(BL$,16): NEXT : RETURN 
  81. 1120  HCOLOR= 0: HPLOT VX,VY TO X2,Y2: RETURN 
  82. 1130  HCOLOR= 0: HPLOT VX,VY TO X1,Y1: RETURN 
  83. 1140  HCOLOR= 3: HPLOT VX,VY TO MX,MY: RETURN 
  84. 1150  HCOLOR= 5: HPLOT VX,VY TO CX,CY: RETURN 
  85. 2010 Z =  INT( RND(1) *3 +1):Y(Z) = 99
  86. 2015  HCOLOR= 1: DRAW 5 AT 78,Y(1): DRAW 5 AT 79,Y(1)
  87. 2020  HCOLOR= 3: DRAW 5 AT 121,Y(2): DRAW 5 AT 121,Y(2)
  88. 2030  HCOLOR= 6: DRAW 5 AT 162,Y(3): DRAW 5 AT 163,Y(3): RETURN 
  89. 10000  RUN 
  90. 10002  RUN 8
  91. 10004  RUN 40
  92. 10006  RUN 457